home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / utmisc1 / esclc20f.lha / EasyRexx / HorizMonths.erex < prev    next >
Text File  |  1996-03-31  |  456b  |  25 lines
  1. /* EasyCalc 2.0 Arexx Script */
  2.  
  3. options results
  4.  
  5. getcurx
  6. curx = result
  7.  
  8. getcury
  9. cury = result
  10.  
  11. setcell curx cury   'January'
  12. setcell curx+1 cury 'February'
  13. setcell curx+2 cury 'March'
  14. setcell curx+3 cury 'April'
  15. setcell curx+4 cury 'May'
  16. setcell curx+5 cury 'June'
  17. setcell curx+6 cury 'July'
  18. setcell curx+7 cury 'August'
  19. setcell curx+8 cury 'September'
  20. setcell curx+9 cury 'October'
  21. setcell curx+10 cury 'November'
  22. setcell curx+11 cury 'December'
  23.  
  24. redraw
  25.